home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO56.LSP < prev    next >
Encoding:
Text File  |  1986-09-22  |  522 b   |  12 lines
  1. (Defun C:Slot ()
  2.        (Setvar "Cmdecho" 0)
  3.        (Setq P1 (Getpoint "\nInsertion point of slot: "))
  4.        (Setq A (Getdist P1 "\nRadius: "))
  5.        (Setq B (Getdist P1 "\nLength: "))
  6.        (Setq C (Getangle P1 "\nAngle: "))
  7.        (Command "Arc" "C" P1 (Polar P1 (+ (/ Pi 2) C) A) "A" "180")
  8.        (Command "Line" "" (Polar (Getvar "Lastpoint") A B) "")
  9.        (Command "Arc" "" (Polar (Getvar "Lastpoint") (+ (/ Pi 2) C) (* 2 A)))
  10.        (Command "Line" "" (Polar (Getvar "Lastpoint") (+ Pi C) B) "")
  11. )
  12.